COBOL এ ফাইল হ্যান্ডলিং এর উদাহরণ

COBOL-এ ফাইল হ্যান্ডলিং এর মাধ্যমে আমরা ফাইল থেকে ডেটা পড়া, ফাইলে ডেটা লেখা এবং ফাইল আপডেট করার কাজ করতে পারি। COBOL বিভিন্ন ধরনের ফাইল সমর্থন করে, যেমন Sequential Files (যেখানে ডেটা একে একে পড়ে বা লেখা হয়) এবং Indexed Files (যেখানে নির্দিষ্ট কী অনুযায়ী ডেটা প্রবেশ করা যায়)। এখানে Sequential File এর একটি উদাহরণ দেখানো হলো, যেখানে একটি ফাইলে ডেটা লেখা এবং পড়ার কাজ করা হবে।

উদাহরণ ১: ফাইল তৈরি এবং লেখা (Create and Write to a File)

এই উদাহরণে আমরা একটি Sequential File তৈরি করব এবং তাতে কিছু ডেটা লিখব।

ফাইল ডেফিনিশন:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FileHandlingExample.
       
       DATA DIVISION.
       FILE SECTION.
       FD  EMPLOYEE-FILE.
       01  EMPLOYEE-RECORD.
           05  EMPLOYEE-ID    PIC 9(4).
           05  EMPLOYEE-NAME  PIC X(30).
           05  EMPLOYEE-SALARY PIC 9(5)V99.

       WORKING-STORAGE SECTION.
       01  END-FILE          PIC X VALUE 'N'.

       PROCEDURE DIVISION.
           OPEN OUTPUT EMPLOYEE-FILE
           MOVE 1001 TO EMPLOYEE-ID
           MOVE 'John Doe' TO EMPLOYEE-NAME
           MOVE 50000.00 TO EMPLOYEE-SALARY
           WRITE EMPLOYEE-RECORD
           MOVE 1002 TO EMPLOYEE-ID
           MOVE 'Jane Smith' TO EMPLOYEE-NAME
           MOVE 55000.00 TO EMPLOYEE-SALARY
           WRITE EMPLOYEE-RECORD
           CLOSE EMPLOYEE-FILE
           DISPLAY 'Records written to file.'
           STOP RUN.

ব্যাখ্যা:

• FILE SECTION: এখানে EMPLOYEE-FILE নামে একটি ফাইল ডিফাইন করা হয়েছে এবং এর মধ্যে EMPLOYEE-RECORD নামক একটি রেকর্ড ডিফাইন করা হয়েছে, যাতে EMPLOYEE-ID, EMPLOYEE-NAME, এবং EMPLOYEE-SALARY অন্তর্ভুক্ত রয়েছে।
• OPEN OUTPUT: ফাইলটি আউটপুট মোডে খুলছে, অর্থাৎ ডেটা লেখা যাবে।
• WRITE: ফাইলে ডেটা লেখা হচ্ছে। এখানে প্রথমে EMPLOYEE-RECORD রেকর্ডে মান দেয়া হচ্ছে এবং তারপর WRITE স্টেটমেন্টটি ফাইলে সেই রেকর্ডটি লেখে।
• CLOSE: ফাইল বন্ধ করা হচ্ছে।

উদাহরণ ২: ফাইল থেকে ডেটা পড়া (Read from File)

এই উদাহরণে আমরা পূর্বে লেখা ফাইল থেকে ডেটা পড়ব এবং তা প্রদর্শন করব।

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ReadFileExample.
       
       DATA DIVISION.
       FILE SECTION.
       FD  EMPLOYEE-FILE.
       01  EMPLOYEE-RECORD.
           05  EMPLOYEE-ID    PIC 9(4).
           05  EMPLOYEE-NAME  PIC X(30).
           05  EMPLOYEE-SALARY PIC 9(5)V99.

       WORKING-STORAGE SECTION.
       01  END-FILE          PIC X VALUE 'N'.

       PROCEDURE DIVISION.
           OPEN INPUT EMPLOYEE-FILE
           PERFORM READ-EMPLOYEE UNTIL END-FILE = 'Y'
           CLOSE EMPLOYEE-FILE
           STOP RUN.

       READ-EMPLOYEE.
           READ EMPLOYEE-FILE INTO EMPLOYEE-RECORD
               AT END
                   MOVE 'Y' TO END-FILE
               NOT AT END
                   DISPLAY 'Employee ID: ' EMPLOYEE-ID
                   DISPLAY 'Employee Name: ' EMPLOYEE-NAME
                   DISPLAY 'Employee Salary: ' EMPLOYEE-SALARY
           END-READ.

ব্যাখ্যা:

• OPEN INPUT: ফাইলটি ইনপুট মোডে খোলা হয়েছে, অর্থাৎ ফাইল থেকে ডেটা পড়া যাবে।
• READ: READ স্টেটমেন্টটি ফাইল থেকে ডেটা পড়ে এবং EMPLOYEE-RECORD রেকর্ডে রাখে।
• AT END: যদি ফাইলের শেষ হয়, তাহলে END-FILE মান 'Y' হবে এবং লুপ বন্ধ হবে।
• DISPLAY: ফাইল থেকে পড়া ডেটা স্ক্রীনে প্রদর্শন করা হচ্ছে।

উদাহরণ ৩: ফাইল আপডেট (Update Data in File)

এই উদাহরণে আমরা একটি ফাইলের নির্দিষ্ট রেকর্ড আপডেট করব।

       IDENTIFICATION DIVISION.
       PROGRAM-ID. UpdateFileExample.
       
       DATA DIVISION.
       FILE SECTION.
       FD  EMPLOYEE-FILE.
       01  EMPLOYEE-RECORD.
           05  EMPLOYEE-ID    PIC 9(4).
           05  EMPLOYEE-NAME  PIC X(30).
           05  EMPLOYEE-SALARY PIC 9(5)V99.

       WORKING-STORAGE SECTION.
       01  END-FILE          PIC X VALUE 'N'.

       PROCEDURE DIVISION.
           OPEN I/O EMPLOYEE-FILE
           PERFORM READ-EMPLOYEE UNTIL END-FILE = 'Y'
           CLOSE EMPLOYEE-FILE
           STOP RUN.

       READ-EMPLOYEE.
           READ EMPLOYEE-FILE INTO EMPLOYEE-RECORD
               AT END
                   MOVE 'Y' TO END-FILE
               NOT AT END
                   IF EMPLOYEE-ID = 1002
                       MOVE 60000.00 TO EMPLOYEE-SALARY
                       REWRITE EMPLOYEE-RECORD
                       DISPLAY 'Updated salary for Employee ID 1002'
                   END-IF
           END-READ.

ব্যাখ্যা:

• OPEN I/O: ফাইলটি ইনপুট/আউটপুট মোডে খোলা হয়েছে, যাতে ফাইল থেকে ডেটা পড়া এবং ফাইলে আপডেট করা যায়।
• REWRITE: REWRITE স্টেটমেন্টটি ব্যবহার করা হয়েছে, যা পড়া রেকর্ডে পরিবর্তন করে ফাইলে আপডেট করবে।
• IF: শর্ত যাচাই করে EMPLOYEE-ID এর মান ১০০২ হলে তার SALARY আপডেট করা হচ্ছে।

সারসংক্ষেপ

COBOL-এ ফাইল হ্যান্ডলিং অত্যন্ত গুরুত্বপূর্ণ, বিশেষত ব্যবসায়িক সিস্টেমে এবং বড় আকারের ডেটা প্রক্রিয়াকরণের ক্ষেত্রে। আমরা Sequential Files এর মাধ্যমে ডেটা লেখা, পড়া এবং আপডেট করা দেখেছি। COBOL-এ ফাইল হ্যান্ডলিং করতে মূলত OPEN, READ, WRITE, REWRITE, এবং CLOSE স্টেটমেন্ট ব্যবহার করা হয়।